Premier2012_2013 <- read.csv("~/Desktop/Premier2012_2013.csv", sep=";")
Premier2013 <- read.csv("~/Desktop/Premier2013.csv", sep=";")
# x<- Vektor 1
# y<- Vektor 2
# if (x>y) print (3)
x<- Vektor 1
y<- Vektor 2
if (x>y) {print (x<-3
y<-0); } else if (x == y) {print (x<-1
y<-1); } else (x < y) {print (x<-0
y<-3); }
